/*

	levelmanager.prg
	Dibujado del nivel.
	
*/

GLOBAL

	levelDraw = true;
	
	level1tiles[]= 01, 01, 01, 02, 01, 01, 02, 01, 02, 01;
	
END

PROCESS startLevel(level)
//
// Controla la posicion del escenario.
// Da la orden de dibujar el escenario
//

PRIVATE

END

BEGIN

	LOOP
	
		// mueve el escenario
		
	
		// dibuja el escenario si se movio
		if ( leveldraw )
			levelDraw(0,0);
		end
	
		frame;
		
	END

END


FUNCTION levelDraw(x,y)
//
// Dibuja el nivel
// Recibe como parametro el punto donde comenzar a dibujar
//
PRIVATE
	int i, fichero, grafico;
END
BEGIN

	fichero = getAssetid("level1");

	for ( i = 0; i < 5; i++ )
	
		grafico = level1tiles[i];
		
		put(fichero, grafico, i*128+64, 240);
		
	end
	
	leveldraw = false;

END
